use "INSERTPATH\conjoint.dta", clear
cd "INSERTPATH"


***************MAIN PAPER****************
*****AMCE PLOTS FOR WHOLE SAMPLE AND BY SUBGROUPS
*MC: "Democ" measure ranges from 0 (very) to 1 (very high)
reg democ i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity, cluster(respondentid)
coefplot, omitted baselevels drop(_cons) xlabel(-.05 0 .05 .1 .15 .2) yline(12.3 20.3, lcolor(black) lpattern(solid)) plotregion(lcolor(black)) headings(0.elections = "{bf:Elections}" 0.checks = "{bf:Checks and Balances}" 0.freespeech = "{bf:Free Speech}" 0.economy = "{bf:Economic Conditions}" 0.crime = "{bf:Crime}" 0.genderequality = "{bf:Gender Equality}" 0.diversity = "{bf:Ethnic Diversity}") coeflabels(0.economy = "Hardship" 1.economy = "Prosperity") title("")
graph export AMCE_MC.pdf, replace //FIGURE 2

*Preferences
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity, cluster(respondentid)
coefplot, omitted baselevels drop(_cons) xlabel(-.05 0 .05 .1 .15 .2) yline(12.3 20.3, lcolor(black) lpattern(solid)) plotregion(lcolor(black)) headings(0.elections = "{bf:Elections}" 0.checks = "{bf:Checks and Balances}" 0.freespeech = "{bf:Free Speech}" 0.economy = "{bf:Economic Conditions}" 0.crime = "{bf:Crime}" 0.genderequality = "{bf:Gender Equality}" 0.diversity = "{bf:Ethnic Diversity}") coeflabels(0.economy = "Hardship" 1.economy = "Prosperity") title("")
graph export AMCE_live.pdf, replace //FIGURE 3


*Hardship
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if hardship < 3, cluster(respondentid)
eststo nostruggle
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if hardship > 2, cluster(respondentid)
eststo struggle
reg live general_treatment if hardship < 3, cluster(respondentid) //general_treatment is the general responsiveness scale presented in the "Modeling" section (i.e., a simple sum scale of all conjoint attributes ranging from 0-7)
eststo nostruggle_gen
reg live general_treatment if hardship > 2, cluster(respondentid)
eststo struggle_gen
coefplot ///
(nostruggle,        msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(struggle,         msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))) ///
(nostruggle_gen,    msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(struggle_gen,     msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))), ///
drop(_cons) ///
xlabel(-.05 0 .05 .1 .15 .2) xline(0) ///
coeflabels( ///
1.elections = "Free and Fair Elections" ///
1.checks = "Constraints on Executive" ///
1.freespeech = "Free Speech" ///
1.economy = "Economic Prosperity" ///
1.crime = "Low Crime" ///
1.genderequality = "Gender Equality" ///
1.diversity = "Ethnic Diversity" ///
general_treatment = "    General Responsiveness") ///
legend(order(2 "No Individual-Level Struggle" 4 "Individual-Level Struggle")  ///
pos(12) row(1)) ///
title("")
graph save AMCE_hardship, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if macro_security == 0, cluster(respondentid)
eststo nostruggle
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if macro_security == 1, cluster(respondentid)
eststo struggle
reg live general_treatment if macro_security == 0, cluster(respondentid)
eststo nostruggle_gen
reg live general_treatment if macro_security == 1, cluster(respondentid)
eststo struggle_gen
coefplot ///
(nostruggle,        msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(struggle,         msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))) ///
(nostruggle_gen,    msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(struggle_gen,     msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))), ///
drop(_cons) ///
xlabel(-.05 0 .05 .1 .15 .2) xline(0) ///
coeflabels( ///
1.elections = "Free and Fair Elections" ///
1.checks = "Constraints on Executive" ///
1.freespeech = "Free Speech" ///
1.economy = "Economic Prosperity" ///
1.crime = "Low Crime" ///
1.genderequality = "Gender Equality" ///
1.diversity = "Ethnic Diversity" ///
general_treatment = "    General Responsiveness") ///
legend(order(2 "No Macro-Level Struggle" 4 "Macro-Level Struggle")  ///
pos(12) row(1)) ///
title("")
graph save AMCE_macrohardship, replace

graph combine AMCE_hardship.gph AMCE_macrohardship.gph, row(2)
graph display, ysize(7) 
graph export AMCE_hardship.pdf, replace //FIGURE 5




*Regime type
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if newold == 0, cluster(respondentid)
eststo auto
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if newold == 1, cluster(respondentid)
eststo new
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if newold == 2, cluster(respondentid)
eststo inter
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if newold == 3, cluster(respondentid)
eststo old
reg live general_treatment if newold == 0, cluster(respondentid)
eststo auto_gen
reg live general_treatment if newold == 1, cluster(respondentid)
eststo new_gen
reg live general_treatment if newold == 2, cluster(respondentid)
eststo inter_gen
reg live general_treatment if newold == 3, cluster(respondentid)
eststo old_gen
coefplot ///
(auto,        msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(new,         msymbol(Sh) mcolor(gs6)        ciopts(lcolor(gs6) lwidth(medium))) ///
(inter,       msymbol(Dh) mcolor(gs9)       ciopts(lcolor(gs9) lwidth(medium))) ///
(old,         msymbol(Th) mcolor(gs10)       ciopts(lcolor(gs10) lwidth(medium))) ///
(auto_gen,    msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(new_gen,     msymbol(Sh) mcolor(gs6)        ciopts(lcolor(gs6) lwidth(medium))) ///
(inter_gen,   msymbol(Dh) mcolor(gs9)       ciopts(lcolor(gs9) lwidth(medium))) ///
(old_gen,     msymbol(Th) mcolor(gs10)       ciopts(lcolor(gs10) lwidth(medium))), ///
drop(_cons) ///
xlabel(-.05 0 .05 .1 .15 .2 .25) xline(0) ///
coeflabels( ///
1.elections = "Free and Fair Elections" ///
1.checks = "Constraints on Executive" ///
1.freespeech = "Free Speech" ///
1.economy = "Economic Prosperity" ///
1.crime = "Low Crime" ///
1.genderequality = "Gender Equality" ///
1.diversity = "Ethnic Diversity" ///
general_treatment = "    General Responsiveness") ///
legend(order(2 "Autocracy" 4 "New Democracy" 6 "Intermediate Democracy" 8 "Old Democracy") ///
pos(12) row(1)) ///
title("")
graph export AMCE_aod.pdf, replace //FIGURE 6


*Support for democracy
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if supportdem == 0, cluster(respondentid)
eststo lowsupport
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if supportdem == 1, cluster(respondentid)
eststo highsupport
reg live general_treatment if supportdem == 0, cluster(respondentid)
eststo lowsupport_gen
reg live general_treatment if supportdem == 1, cluster(respondentid)
eststo highsupport_gen
coefplot ///
(lowsupport,        msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(highsupport,         msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))) ///
(lowsupport_gen,    msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(highsupport_gen,     msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))), ///
drop(_cons) ///
xlabel(-.05 0 .05 .1 .15 .2) xline(0) ///
coeflabels( ///
1.elections = "Free and Fair Elections" ///
1.checks = "Constraints on Executive" ///
1.freespeech = "Free Speech" ///
1.economy = "Economic Prosperity" ///
1.crime = "Low Crime" ///
1.genderequality = "Gender Equality" ///
1.diversity = "Ethnic Diversity" ///
general_treatment = "    General Responsiveness") ///
legend(order(2 "Low Support" 4 "High Support")  ///
pos(12) row(1)) ///
title("")
graph export AMCE_supportdem.pdf, replace //FIGURE 7


****Social attitudes ("conservative" is the sum index built on three questions declared in J. Appendix and the "Moderators" section. It ranges from -5 (fully liberal) to 5 (fully conservative))
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if conservative < .666667, cluster(respondentid)
eststo liberal
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if conservative > .666666, cluster(respondentid)
eststo conservative
reg live general_treatment if conservative < .666667, cluster(respondentid)
eststo liberal_gen
reg live general_treatment if conservative > .666666, cluster(respondentid)
eststo conservative_gen
coefplot ///
(liberal,        msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(conservative,         msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))) ///
(liberal_gen,    msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(conservative_gen,     msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))), ///
drop(_cons) ///
xlabel(-.05 0 .05 .1 .15 .2) xline(0) ///
coeflabels( ///
1.elections = "Free and Fair Elections" ///
1.checks = "Constraints on Executive" ///
1.freespeech = "Free Speech" ///
1.economy = "Economic Prosperity" ///
1.crime = "Low Crime" ///
1.genderequality = "Gender Equality" ///
1.diversity = "Ethnic Diversity" ///
general_treatment = "    General Responsiveness") ///
legend(order(2 "Liberal" 4 "Conservative")  ///
pos(12) row(1)) ///
title("")
graph export AMCE_conservative.pdf, replace //FIGURE 8.


****Bundle approach
reg live democracyscale##economy, cluster(respondentid)
margins, at(democracyscale=(0 1 2 3)) over(economy)
marginsplot, recast(scatter) ytitle("Preference to Live") xtitle("Level of Democracy (Low-High)") legend(order(3 "Hardship" 4 "Prosperity")) plotopts(msize(small)) title("")
graph export H1_preference_bundle.pdf, replace //Figure 4        





*****************************APPENDIX**************************
****FIGURES WITH QUALITY OF LIFE OUTCOME
*Main AMCE 
reg qol i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity, cluster(respondentid)
coefplot, omitted baselevels drop(_cons) xlabel(-.05 0 .05 .1) yline(12.3 20.3, lcolor(black) lpattern(solid)) plotregion(lcolor(black)) headings(0.elections = "{bf:Elections}" 0.checks = "{bf:Checks and Balances}" 0.freespeech = "{bf:Free Speech}" 0.economy = "{bf:Economic Conditions}" 0.crime = "{bf:Crime}" 0.genderequality = "{bf:Gender Equality}" 0.diversity = "{bf:Ethnic Diversity}") coeflabels(0.economy = "Hardship" 1.economy = "Prosperity") title("")
graph export AMCE_qol.pdf, replace //FIGURE A.2



*Hardship
reg qol i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if hardship < 3, cluster(respondentid)
eststo nostruggle
reg qol i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if hardship > 2, cluster(respondentid)
eststo struggle
reg qol general_treatment if hardship < 3, cluster(respondentid)
eststo nostruggle_gen
reg qol general_treatment if hardship > 2, cluster(respondentid)
eststo struggle_gen
coefplot ///
(nostruggle,        msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(struggle,         msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))) ///
(nostruggle_gen,    msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(struggle_gen,     msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))), ///
drop(_cons) ///
xlabel(-.05 0 .05 .1 .1) xline(0) ///
coeflabels( ///
1.elections = "Free and Fair Elections" ///
1.checks = "Constraints on Executive" ///
1.freespeech = "Free Speech" ///
1.economy = "Economic Prosperity" ///
1.crime = "Low Crime" ///
1.genderequality = "Gender Equality" ///
1.diversity = "Ethnic Diversity" ///
general_treatment = "    General Responsiveness") ///
legend(order(2 "No Individual-Level Struggle" 4 "Individual-Level Struggle")  ///
pos(12) row(1)) ///
title("")
graph save AMCE_hardship_qol, replace

reg qol i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if macro_security == 0, cluster(respondentid)
eststo nostruggle
reg qol i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if macro_security == 1, cluster(respondentid)
eststo struggle
reg qol general_treatment if macro_security == 0, cluster(respondentid)
eststo nostruggle_gen
reg qol general_treatment if macro_security == 1, cluster(respondentid)
eststo struggle_gen
coefplot ///
(nostruggle,        msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(struggle,         msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))) ///
(nostruggle_gen,    msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(struggle_gen,     msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))), ///
drop(_cons) ///
xlabel(-.05 0 .05 .1 .1) xline(0) ///
coeflabels( ///
1.elections = "Free and Fair Elections" ///
1.checks = "Constraints on Executive" ///
1.freespeech = "Free Speech" ///
1.economy = "Economic Prosperity" ///
1.crime = "Low Crime" ///
1.genderequality = "Gender Equality" ///
1.diversity = "Ethnic Diversity" ///
general_treatment = "    General Responsiveness") ///
legend(order(2 "No Macro-Level Struggle" 4 "Macro-Level Struggle")  ///
pos(12) row(1)) ///
title("")
graph save AMCE_macrohardship_qol, replace

graph combine AMCE_hardship_qol.gph AMCE_macrohardship_qol.gph, row(2)
graph display, ysize(7)
graph export AMCE_hardship_qol.pdf, replace //FIGURE A.3


*Regime type
reg qol i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if newold == 0, cluster(respondentid)
eststo auto
reg qol i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if newold == 1, cluster(respondentid)
eststo new
reg qol i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if newold == 2, cluster(respondentid)
eststo inter
reg qol i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if newold == 3, cluster(respondentid)
eststo old
reg qol general_treatment if newold == 0, cluster(respondentid)
eststo auto_gen
reg qol general_treatment if newold == 1, cluster(respondentid)
eststo new_gen
reg qol general_treatment if newold == 2, cluster(respondentid)
eststo inter_gen
reg qol general_treatment if newold == 3, cluster(respondentid)
eststo old_gen
coefplot ///
(auto,        msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(new,         msymbol(Sh) mcolor(gs6)        ciopts(lcolor(gs6) lwidth(medium))) ///
(inter,       msymbol(Dh) mcolor(gs9)       ciopts(lcolor(gs9) lwidth(medium))) ///
(old,         msymbol(Th) mcolor(gs10)       ciopts(lcolor(gs10) lwidth(medium))) ///
(auto_gen,    msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(new_gen,     msymbol(Sh) mcolor(gs6)        ciopts(lcolor(gs6) lwidth(medium))) ///
(inter_gen,   msymbol(Dh) mcolor(gs9)       ciopts(lcolor(gs9) lwidth(medium))) ///
(old_gen,     msymbol(Th) mcolor(gs10)       ciopts(lcolor(gs10) lwidth(medium))), ///
drop(_cons) ///
xlabel(-.05 0 .05 .1) xline(0) ///
coeflabels( ///
1.elections = "Free and Fair Elections" ///
1.checks = "Constraints on Executive" ///
1.freespeech = "Free Speech" ///
1.economy = "Economic Prosperity" ///
1.crime = "Low Crime" ///
1.genderequality = "Gender Equality" ///
1.diversity = "Ethnic Diversity" ///
general_treatment = "    General Responsiveness") ///
legend(order(2 "Autocracy" 4 "New Democracy" 6 "Intermediate Democracy" 8 "Old Democracy") ///
pos(12) row(1)) ///
title("")
graph export AMCE_aod_qol.pdf, replace //FIGURE A.4

*Support for democracy
reg qol i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if supportdem == 0, cluster(respondentid)
eststo lowsupport
reg qol i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if supportdem == 1, cluster(respondentid)
eststo highsupport
reg qol general_treatment if supportdem == 0, cluster(respondentid)
eststo lowsupport_gen
reg qol general_treatment if supportdem == 1, cluster(respondentid)
eststo highsupport_gen
coefplot ///
(lowsupport,        msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(highsupport,         msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))) ///
(lowsupport_gen,    msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(highsupport_gen,     msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))), ///
drop(_cons) ///
xlabel(-.05 0 .05 .1) xline(0) ///
coeflabels( ///
1.elections = "Free and Fair Elections" ///
1.checks = "Constraints on Executive" ///
1.freespeech = "Free Speech" ///
1.economy = "Economic Prosperity" ///
1.crime = "Low Crime" ///
1.genderequality = "Gender Equality" ///
1.diversity = "Ethnic Diversity" ///
general_treatment = "    General Responsiveness") ///
legend(order(2 "Low Support" 4 "High Support")  ///
pos(12) row(1)) ///
title("")
graph export AMCE_supportdem_qol.pdf, replace //FIGURE A.5

****Bundle approach
*Hardship
reg live democracyscale##economy if hardship < 3, cluster(respondentid) //"democracyscale" is the sum scale mentioned in the "Modeling" section ranging from 0 (not democratic at all) to 3 (fully democratic)
margins, at(democracyscale=(0 1 2 3)) over(economy)
marginsplot, recast(scatter) ytitle("Preference to Live") xtitle("Level of Democracy (Low-High)") legend(order(3 "Hardship" 4 "Prosperity") row(1)) title("No Individual Struggle")
graph save comfortable_live, replace

reg live democracyscale##economy if hardship > 2, cluster(respondentid)
margins, at(democracyscale=(0 1 2 3)) over(economy)
marginsplot, recast(scatter) ytitle("Preference to Live") xtitle("Level of Democracy (Low-High)") legend(order(3 "Hardship" 4 "Prosperity")) plotopts(msize(vsmall)) title("Individual Struggle")
graph save struggle_live, replace

reg live democracyscale##economy if macro_security == 0, cluster(respondentid)
margins, at(democracyscale=(0 1 2 3)) over(economy)
marginsplot, recast(scatter) ytitle("Preference to Live") xtitle("Level of Democracy (Low-High)") legend(order(3 "Hardship" 4 "Prosperity") row(1)) title("No Macro-Level Struggle")
graph save comfortable_live_macro, replace

reg live democracyscale##economy if macro_security == 1, cluster(respondentid)
margins, at(democracyscale=(0 1 2 3)) over(economy)
marginsplot, recast(scatter) ytitle("Preference to Live") xtitle("Level of Democracy (Low-High)") legend(order(3 "Hardship" 4 "Prosperity")) plotopts(msize(vsmall)) title("Macro-Level Struggle")
graph save struggle_live_macro, replace

grc1leg comfortable_live.gph struggle_live.gph comfortable_live_macro.gph struggle_live_macro.gph, legendfrom(comfortable_live.gph) ycommon title("") row(2)
graph display, xsize(7) ysize(9)
graph export H2_bundle_live.pdf, replace //FIGURE A.6


*Regime type
reg live democracyscale##economy if newold == 0, cluster(respondentid)
margins, at(democracyscale=(0 1 2 3)) over(economy)
marginsplot, recast(scatter) ytitle("Preference to Live") xtitle("Level of Democracy (Low-High)") legend(order(3 "Hardship" 4 "Prosperity") row(1)) title("Autocracy")
graph save autocracyspan_live, replace
reg live democracyscale##economy if newold == 1, cluster(respondentid)
margins, at(democracyscale=(0 1 2 3)) over(economy)
marginsplot, recast(scatter) ytitle("Preference to Live") xtitle("Level of Democracy (Low-High)") legend(order(3 "Hardship" 4 "Prosperity")) plotopts(msize(vsmall)) title("New Democracy")
graph save newdemocracyspan_live, replace
reg live democracyscale##economy if newold == 2, cluster(respondentid)
margins, at(democracyscale=(0 1 2 3)) over(economy)
marginsplot, recast(scatter) ytitle("Preference to Live") xtitle("Level of Democracy (Low-High)") legend(order(3 "Hardship" 4 "Prosperity")) plotopts(msize(vsmall)) title("Intermediate Democracy")
graph save interdemocracyspan_live, replace
reg live democracyscale##economy if newold == 3, cluster(respondentid)
margins, at(democracyscale=(0 1 2 3)) over(economy)
marginsplot, recast(scatter) ytitle("Preference to Live") xtitle("Level of Democracy (Low-High)") legend(order(3 "Hardship" 4 "Prosperity")) plotopts(msize(vsmall)) title("Old Democracy")
graph save olddemocracyspan_live, replace
grc1leg autocracyspan_live.gph newdemocracyspan_live.gph interdemocracyspan_live.gph olddemocracyspan_live.gph, legendfrom(autocracyspan_live.gph) ycommon title("") row(2)
graph display, xsize(7) ysize(9)
graph export H3a_bundle_live_split.pdf, replace //FIGURE A.7


*Support for democracy
reg live democracyscale##economy if supportdem == 0, cluster(respondentid)
margins, at(democracyscale=(0 1 2 3)) over(economy)
marginsplot, recast(scatter) ytitle("Preference to Live") xtitle("Level of Democracy (Low-High)") legend(order(3 "Hardship" 4 "Prosperity") row(1)) title("Low support")
graph save low_live, replace
reg live democracyscale##economy if supportdem == 1, cluster(respondentid)
margins, at(democracyscale=(0 1 2 3)) over(economy)
marginsplot, recast(scatter) ytitle("Preference to Live") xtitle("Level of Democracy (Low-High)") legend(order(3 "Hardship" 4 "Prosperity")) plotopts(msize(vsmall)) title("High support")
graph save high_live, replace
grc1leg low_live.gph high_live.gph, legendfrom(low_live.gph) ycommon title("")
graph export H4_live.pdf, replace //FIGURE A.8

*Bundling crime and economy
reg live democracyscale##securityscale, cluster(respondentid) //"securityscale" is the sumscale of the crime and economy dimensions ranging from 0 (low security) to 2 (high security) (see E. Appendix)
margins, at(democracyscale=(0 1 2 3)) over(securityscale)
marginsplot, recast(scatter) ytitle("Preference to Live") xtitle("Level of Democracy (Low-High)") legend(order(4 "Low Security" 5 "Medium Security" 6 "High Security")) title("")
graph export H1_preference_economycrime_bundled.pdf, replace //FIGURE A.9



*****AMCEs BY DEMOGRAPHICS
*EDUCATION
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if educationnumerical < 4, cluster(respondentid)
coefplot, omitted baselevels drop(_cons *ccnumeric) xlabel(-.05 0 .05 .1 .15 .2) yline(12.3 20.3, lcolor(black) lpattern(solid)) plotregion(lcolor(black)) headings(0.elections = "{bf:Elections}" 0.checks = "{bf:Checks and Balances}" 0.freespeech = "{bf:Free Speech}" 0.economy = "{bf:Economic Conditions}" 0.crime = "{bf:Crime}" 0.genderequality = "{bf:Gender Equality}" 0.diversity = "{bf:Ethnic Diversity}") coeflabels(0.economy = "Hardship" 1.economy = "Prosperity") title("No college")
graph save AMCE_lowedu, replace

reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if educationnumerical == 4, cluster(respondentid)
coefplot, omitted baselevels drop(_cons *ccnumeric) xlabel(-.05 0 .05 .1 .15 .2) yline(12.3 20.3, lcolor(black) lpattern(solid)) plotregion(lcolor(black)) headings(0.elections = "{bf:Elections}" 0.checks = "{bf:Checks and Balances}" 0.freespeech = "{bf:Free Speech}" 0.economy = "{bf:Economic Conditions}" 0.crime = "{bf:Crime}" 0.genderequality = "{bf:Gender Equality}" 0.diversity = "{bf:Ethnic Diversity}") coeflabels(0.economy = "Hardship" 1.economy = "Prosperity") title("College")
graph save AMCE_highedu, replace

graph combine AMCE_highedu.gph AMCE_lowedu.gph, row(2)
graph display, xsize(7) ysize(10)
graph export AMCE_byedu.pdf, replace //FIGURE A.10

*AGE
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if age < 40, cluster(respondentid)
coefplot, omitted baselevels drop(_cons *ccnumeric) xlabel(-.05 0 .05 .1 .15 .2) yline(12.3 20.3, lcolor(black) lpattern(solid)) plotregion(lcolor(black)) headings(0.elections = "{bf:Elections}" 0.checks = "{bf:Checks and Balances}" 0.freespeech = "{bf:Free Speech}" 0.economy = "{bf:Economic Conditions}" 0.crime = "{bf:Crime}" 0.genderequality = "{bf:Gender Equality}" 0.diversity = "{bf:Ethnic Diversity}") coeflabels(0.economy = "Hardship" 1.economy = "Prosperity") title("Under 40")
graph save AMCE_young, replace

reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if age > 39.99, cluster(respondentid)
coefplot, omitted baselevels drop(_cons *ccnumeric) xlabel(-.05 0 .05 .1 .15 .2) yline(12.3 20.3, lcolor(black) lpattern(solid)) plotregion(lcolor(black)) headings(0.elections = "{bf:Elections}" 0.checks = "{bf:Checks and Balances}" 0.freespeech = "{bf:Free Speech}" 0.economy = "{bf:Economic Conditions}" 0.crime = "{bf:Crime}" 0.genderequality = "{bf:Gender Equality}" 0.diversity = "{bf:Ethnic Diversity}") coeflabels(0.economy = "Hardship" 1.economy = "Prosperity") title("Over (and including) 40")
graph save AMCE_older, replace

graph combine AMCE_young.gph AMCE_older.gph, row(2)
graph display, xsize(7) ysize(10)
graph export AMCE_byage.pdf, replace //FIGURE A.11

*GENDER (1 = women, 3 = men on the gender measure)
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if gender == 1, cluster(respondentid)
coefplot, omitted baselevels drop(_cons *ccnumeric) xlabel(-.05 0 .05 .1 .15 .2) yline(12.3 20.3, lcolor(black) lpattern(solid)) plotregion(lcolor(black)) headings(0.elections = "{bf:Elections}" 0.checks = "{bf:Checks and Balances}" 0.freespeech = "{bf:Free Speech}" 0.economy = "{bf:Economic Conditions}" 0.crime = "{bf:Crime}" 0.genderequality = "{bf:Gender Equality}" 0.diversity = "{bf:Ethnic Diversity}") coeflabels(0.economy = "Hardship" 1.economy = "Prosperity") title("Women")
graph save AMCE_female, replace

reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if gender == 3, cluster(respondentid)
coefplot, omitted baselevels drop(_cons *ccnumeric) xlabel(-.05 0 .05 .1 .15 .2) yline(12.3 20.3, lcolor(black) lpattern(solid)) plotregion(lcolor(black)) headings(0.elections = "{bf:Elections}" 0.checks = "{bf:Checks and Balances}" 0.freespeech = "{bf:Free Speech}" 0.economy = "{bf:Economic Conditions}" 0.crime = "{bf:Crime}" 0.genderequality = "{bf:Gender Equality}" 0.diversity = "{bf:Ethnic Diversity}") coeflabels(0.economy = "Hardship" 1.economy = "Prosperity") title("Men")
graph save AMCE_male, replace

graph combine AMCE_female.gph AMCE_male.gph, row(2)
graph display, xsize(7) ysize(10)
graph export AMCE_bygender.pdf, replace   //FIGURE A.12    




****Hardship by education
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if hardship < 3 & educationnumerical < 4, cluster(respondentid)
eststo nostruggle_lowedu
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if hardship > 2 & educationnumerical < 4, cluster(respondentid)
eststo struggle_lowedu
reg live general_treatment if hardship < 3 & educationnumerical < 4, cluster(respondentid)
eststo nostruggle_lowedu_gen
reg live general_treatment if hardship > 2 & educationnumerical < 4, cluster(respondentid)
eststo struggle_lowedu_gen
coefplot ///
(nostruggle_lowedu,        msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(struggle_lowedu,         msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))) ///
(nostruggle_lowedu_gen,    msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(struggle_lowedu_gen,     msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))), ///
drop(_cons) ///
xlabel(-.05 0 .05 .1 .15 .2) xline(0) ///
coeflabels( ///
1.elections = "Free and Fair Elections" ///
1.checks = "Constraints on Executive" ///
1.freespeech = "Free Speech" ///
1.economy = "Economic Prosperity" ///
1.crime = "Low Crime" ///
1.genderequality = "Gender Equality" ///
1.diversity = "Ethnic Diversity" ///
general_treatment = "    General Responsiveness") ///
legend(order(2 "No Individual-Level Struggle" 4 "Individual-Level Struggle")  ///
pos(12) row(1)) ///
title("Low Education")
graph save low_edu, replace

reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if hardship < 3 & educationnumerical == 4, cluster(respondentid)
eststo nostruggle_highedu
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if hardship > 2 & educationnumerical == 4, cluster(respondentid)
eststo struggle_highedu
reg live general_treatment if hardship < 3 & educationnumerical == 4, cluster(respondentid)
eststo nostruggle_highedu_gen
reg live general_treatment if hardship > 2 & educationnumerical == 4, cluster(respondentid)
eststo struggle_highedu_gen
coefplot ///
(nostruggle_highedu,        msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(struggle_highedu,         msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))) ///
(nostruggle_highedu_gen,    msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(struggle_highedu_gen,     msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))), ///
drop(_cons) ///
xlabel(-.05 0 .05 .1 .15 .2) xline(0) ///
coeflabels( ///
1.elections = "Free and Fair Elections" ///
1.checks = "Constraints on Executive" ///
1.freespeech = "Free Speech" ///
1.economy = "Economic Prosperity" ///
1.crime = "Low Crime" ///
1.genderequality = "Gender Equality" ///
1.diversity = "Ethnic Diversity" ///
general_treatment = "    General Responsiveness") ///
legend(order(2 "No Individual-Level Struggle" 4 "Individual-Level Struggle")  ///
pos(12) row(1)) ///
title("High Education")
graph save high_edu, replace
graph combine low_edu.gph high_edu.gph, row(2)
graph display, ysize(9) xsize(6.5)
graph export AMCE_hardship_edu.pdf, replace //FIGURE A.13



****Democracies and autocracies (0 = autocracy, 1 = democracy on the democracystatus measure)
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if democracystatus == 0, cluster(respondentid)
eststo autocracy
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if democracystatus == 1, cluster(respondentid)
eststo democracy
reg live general_treatment if democracystatus == 0, cluster(respondentid)
eststo autocracy_gen
reg live general_treatment if democracystatus == 1, cluster(respondentid)
eststo democracy_gen
coefplot ///
(autocracy,        msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(democracy,         msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))) ///
(autocracy_gen,    msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(democracy_gen,     msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))), ///
drop(_cons) ///
xlabel(-.05 0 .05 .1 .15 .2) xline(0) ///
coeflabels( ///
1.elections = "Free and Fair Elections" ///
1.checks = "Constraints on Executive" ///
1.freespeech = "Free Speech" ///
1.economy = "Economic Prosperity" ///
1.crime = "Low Crime" ///
1.genderequality = "Gender Equality" ///
1.diversity = "Ethnic Diversity" ///
general_treatment = "    General Responsiveness") ///
legend(order(2 "Autocracy" 4 "Democracy")  ///
pos(12) row(1)) ///
title("")
graph export AMCE_democracystatus.pdf, replace //FIGURE A.14


*****COUNTRY FIXED EFFECTS
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity i.ccnumeric, cluster(respondentid)
coefplot, omitted baselevels drop(_cons *ccnumeric) xlabel(-.05 0 .05 .1 .15 .2) yline(12.3 20.3, lcolor(black) lpattern(solid)) plotregion(lcolor(black)) headings(0.elections = "{bf:Elections}" 0.checks = "{bf:Checks and Balances}" 0.freespeech = "{bf:Free Speech}" 0.economy = "{bf:Economic Conditions}" 0.crime = "{bf:Crime}" 0.genderequality = "{bf:Gender Equality}" 0.diversity = "{bf:Ethnic Diversity}") coeflabels(0.economy = "Hardship" 1.economy = "Prosperity") title("")
graph export AMCE_live_fixed.pdf, replace //FIGURE A.16


****PROFICIENCY
*Spanish vs English
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if spanish == 1, cluster(respondentid)
coefplot, omitted baselevels drop(_cons *ccnumeric) xlabel(-.05 0 .05 .1 .15 .2) yline(12.3 20.3, lcolor(black) lpattern(solid)) plotregion(lcolor(black)) headings(0.elections = "{bf:Elections}" 0.checks = "{bf:Checks and Balances}" 0.freespeech = "{bf:Free Speech}" 0.economy = "{bf:Economic Conditions}" 0.crime = "{bf:Crime}" 0.genderequality = "{bf:Gender Equality}" 0.diversity = "{bf:Ethnic Diversity}") coeflabels(0.economy = "Hardship" 1.economy = "Prosperity") title("Spanish")
graph save AMCE_spanish, replace

reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if english == 1, cluster(respondentid)
coefplot, omitted baselevels drop(_cons *ccnumeric) xlabel(-.05 0 .05 .1 .15 .2) yline(12.3 20.3, lcolor(black) lpattern(solid)) plotregion(lcolor(black)) headings(0.elections = "{bf:Elections}" 0.checks = "{bf:Checks and Balances}" 0.freespeech = "{bf:Free Speech}" 0.economy = "{bf:Economic Conditions}" 0.crime = "{bf:Crime}" 0.genderequality = "{bf:Gender Equality}" 0.diversity = "{bf:Ethnic Diversity}") coeflabels(0.economy = "Hardship" 1.economy = "Prosperity") title("English")
graph save AMCE_english, replace

graph combine AMCE_spanish.gph AMCE_english.gph, row(2)
graph display, xsize(7) ysize(10)
graph export AMCE_proficiency_spanish_english.pdf, replace //FIGURE A.17

*Proficient
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if proficient == 1, cluster(respondentid)
coefplot, omitted baselevels drop(_cons *ccnumeric) xlabel(-.05 0 .05 .1 .15 .2) yline(12.3 20.3, lcolor(black) lpattern(solid)) plotregion(lcolor(black)) headings(0.elections = "{bf:Elections}" 0.checks = "{bf:Checks and Balances}" 0.freespeech = "{bf:Free Speech}" 0.economy = "{bf:Economic Conditions}" 0.crime = "{bf:Crime}" 0.genderequality = "{bf:Gender Equality}" 0.diversity = "{bf:Ethnic Diversity}") title("")
graph export AMCE_proficient.pdf, replace //FIGURE A.18


****Interaction between micro and macro factors
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if hardship < 3 & macro_security == 0, cluster(respondentid)
eststo nostruggle_hard
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if hardship < 3 & macro_security == 1, cluster(respondentid)
eststo nostruggle_easy
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if hardship > 2 & macro_security == 0, cluster(respondentid)
eststo struggle_hard
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if hardship > 2 & macro_security == 1, cluster(respondentid)
eststo struggle_easy
reg live general_treatment if hardship < 3 & macro_security == 0, cluster(respondentid)
eststo nostruggle_hard_gen
reg live general_treatment if hardship < 3 & macro_security == 1, cluster(respondentid)
eststo nostruggle_easy_gen
reg live general_treatment if hardship > 2 & macro_security == 0, cluster(respondentid)
eststo struggle_hard_gen
reg live general_treatment if hardship > 2 & macro_security == 1, cluster(respondentid)
eststo struggle_easy_gen
coefplot ///
(nostruggle_easy,     msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(nostruggle_hard,     msymbol(Sh) mcolor(gs8)        ciopts(lcolor(gs8) lwidth(medium))) ///
(struggle_easy,       msymbol(Dh) mcolor(gs10)       ciopts(lcolor(gs10) lwidth(medium))) ///
(struggle_hard,       msymbol(Th) mcolor(gs12)       ciopts(lcolor(gs12) lwidth(medium))) ///
(nostruggle_easy_gen, msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(nostruggle_hard_gen, msymbol(Sh) mcolor(gs8)        ciopts(lcolor(gs8) lwidth(medium))) ///
(struggle_easy_gen,   msymbol(Dh) mcolor(gs10)       ciopts(lcolor(gs10) lwidth(medium))) ///
(struggle_hard_gen,   msymbol(Th) mcolor(gs12)       ciopts(lcolor(gs12) lwidth(medium))), ///
drop(_cons) ///
xlabel(-.05 0 .05 .1 .15 .2) xline(0) plotregion(lcolor(black)) ///
coeflabels( ///
1.elections = "Free and Fair Elections" ///
1.checks = "Constraints on Executive" ///
1.freespeech = "Free Speech" ///
1.economy = "Economic Prosperity" ///
1.crime = "Low Crime" ///
1.genderequality = "Gender Equality" ///
1.diversity = "Ethnic Diversity" ///
general_treatment = "    General Responsiveness") ///
legend(order(2 "No Individual-Level or Macro-Level Struggle" ///
4 "No Individual-Level Struggle, but Macro-Level Struggle" ///
6 "Individual-Level Struggle, but no Macro-Level Struggle" ///
8 "Both Individual-Level and Macro-Level Struggle") ///
pos(12) row(4)) ///
title("")
graph export micro_macro_interaction.pdf, replace //FIGURE A.19



reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if conservative < -.3333333, cluster(respondentid)
eststo liberal
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity if conservative > 2, cluster(respondentid)
eststo conservative
reg live general_treatment if conservative < -.3333333, cluster(respondentid)
eststo liberal_gen
reg live general_treatment if conservative > 2, cluster(respondentid)
eststo conservative_gen
coefplot ///
(liberal,        msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(conservative,         msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))) ///
(liberal_gen,    msymbol(Oh) mcolor(black)      ciopts(lcolor(black) lwidth(medium))) ///
(conservative_gen,     msymbol(Sh) mcolor(gs10)        ciopts(lcolor(gs10) lwidth(medium))), ///
drop(_cons) ///
xlabel(-.05 0 .05 .1 .15 .2) xline(0) ///
coeflabels( ///
1.elections = "Free and Fair Elections" ///
1.checks = "Constraints on Executive" ///
1.freespeech = "Free Speech" ///
1.economy = "Economic Prosperity" ///
1.crime = "Low Crime" ///
1.genderequality = "Gender Equality" ///
1.diversity = "Ethnic Diversity" ///
general_treatment = "    General Responsiveness") ///
legend(order(2 "Liberal" 4 "Conservative")  ///
pos(12) row(1)) ///
title("")
graph export AMCE_conservative_extreme.pdf, replace //FIGURE A.22





***CROSS-COUNTRY (A.15)
reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 1, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Argentina", size(medsmall))
graph save argentina, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 2, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Bangladesh", size(medsmall))
graph save bangladesh, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 3, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Bolivia", size(medsmall))
graph save bolivia, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 4 | ccnumeric == 17, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Chile", size(medsmall))
graph save chile, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 5, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Colombia", size(medsmall))
graph save colombia, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 6, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Dominican Republic", size(medsmall))
graph save dominican_republic, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 7, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Ecuador", size(medsmall))
graph save ecuador, replace



reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 9, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Guatemala", size(medsmall))
graph save guatemala, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 10, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Honduras", size(medsmall))
graph save honduras, replace



reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 11 | ccnumeric == 29, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Mexico", size(medsmall))
graph save mexico, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 12, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Nicaragua", size(medsmall))
graph save nicaragua, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 13, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Paraguay", size(medsmall))
graph save paraguay, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 14, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Peru", size(medsmall))
graph save peru, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 15, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("El Salvador", size(medsmall))
graph save el_salvador, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 16, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Venezuela", size(medsmall))
graph save venezuela, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 19, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("United States", size(medsmall))
graph save usa, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 20, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Australia", size(medsmall))
graph save australia, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 21, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("United Kingdom", size(medsmall))
graph save united_kingdom, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 22, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Philippines", size(medsmall))
graph save philippines, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 23, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Ghana", size(medsmall))
graph save ghana, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 24 | ccnumeric == 25, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Hong Kong", size(medsmall))
graph save hong_kong, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 26, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("India", size(medsmall))
graph save india, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 27, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Kenya", size(medsmall))
graph save kenya, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 28, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Malaysia", size(medsmall))
graph save malaysia, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 30, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Nigeria", size(medsmall))
graph save nigeria, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 31, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Pakistan", size(medsmall))
graph save pakistan, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 32, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Singapore", size(medsmall))
graph save singapore, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 33, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("South Africa", size(medsmall))
graph save south_africa, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 34, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Tanzania", size(medsmall))
graph save tanzania, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 35, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Uganda", size(medsmall))
graph save uganda, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 36, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Zambia", size(medsmall))
graph save zambia, replace


reg live i.elections i.checks i.freespeech i.economy i.crime i.genderequality i.diversity ///
    if ccnumeric == 37, cluster(respondentid)
coefplot, drop(_cons) xlabel(-.1 0 .1 .2 .3, labsize(vsmall)) msize(small) ///
    yline(12.3 20.3, lcolor(black) lpattern(solid)) xline(0) plotregion(lcolor(black)) ///
    coeflabels(1.elections="{bf:Elections}" 1.checks="{bf:Checks}" 1.freespeech="{bf:Free Speech}" ///
             1.economy="{bf:Prosperity}" 1.crime="{bf:Low Crime}" 1.genderequality="{bf:Equality}" 1.diversity="{bf:Diversity}", labsize(vsmall)) ///
    title("Turkey", size(medsmall))
graph save turkey, replace



graph combine argentina.gph bangladesh.gph bolivia.gph chile.gph ///
    colombia.gph dominican_republic.gph ecuador.gph guatemala.gph ///
    honduras.gph mexico.gph nicaragua.gph paraguay.gph ///
    peru.gph el_salvador.gph venezuela.gph usa.gph ///
	australia.gph united_kingdom.gph philippines.gph ghana.gph ///
    hong_kong.gph india.gph kenya.gph malaysia.gph ///
    nigeria.gph pakistan.gph singapore.gph south_africa.gph ///
    tanzania.gph uganda.gph zambia.gph turkey.gph, ///
    cols(4) title("") imargin(zero) xcommon
	graph display, ysize(8) xsize(6)
graph export AMCE_live_bycountry.pdf, replace ///FIGURE A.15